home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 34.zip / BS1 part 34 / GFA basic training.adf / Erweiterung / QUADRAT_GLEICHUNG.LST < prev    next >
File List  |  1989-06-01  |  771b  |  33 lines
  1. ' Lösung von einfachen Quadratischen Gleichungen
  2. ' Nach der Formel: x1,2 = -b/2a +- 1/2a* SQR(b^2-4ac)
  3. @eingabe
  4. @rechnen
  5. @ausgabe
  6. END
  7. '
  8. '
  9. PROCEDURE eingabe
  10.   PRINT " Dieses Formelformat muss vorliegen:"
  11.   PRINT "  ax^2+bx+c=0 "
  12.   INPUT "a= ",a
  13.   INPUT "b= ",b
  14.   INPUT "c= ",c
  15. RETURN
  16. PROCEDURE rechnen
  17.   q=b*b-4*a*c           ! Inhalt der Wurzel berechnen
  18.   IF q<0
  19.     PRINT
  20.     PRINT TAB(10);"Keine reele Loesung möglich!!"
  21.     END
  22.   ENDIF
  23.   q=SQR(q/(2*a))        ! Wurzel berechnen und mit 1/2*a multiplizieren
  24.   c=-b/(2*a)            ! den ersten Formelteil berechnen
  25.   x1=c+q                ! x1 = Addition
  26.   x2=c-q                ! x2 = Subtraktion
  27. RETURN
  28. PROCEDURE ausgabe
  29.   PRINT
  30.   PRINT TAB(10);"X1 hat den Wert :";x1
  31.   PRINT TAB(10);"X2 hat den Wert :";x2
  32. RETURN
  33.